perm filename ZLTF.DAT[SCR,LCS] blob
sn#203392 filedate 1976-02-25 generic text, type T, neo UTF8
RCDFLG←-1;
< ZLTF .DAT -- RANDOM NUMBER= 1
PLAY;
TOOT 0.000 0.200 C/2 2000.000 F1 F3
;PRINT(P1);< TOOT 1
SYNTH(F3);1 1 2 0.900 3.000 0.850 4.000 0.800 5.000 0.750
6.000 0.700 7.000 0.650 8.000 0.600 9.000 0.550 10.000 0.500
11.000 0.450 12.000 0.400 13.000 0.350 14.000 0.300 999.000
;PRINT(P1);< FUNC 1
TOOT 0.200 0.200 CS/2 2000.000 F1 F3
;PRINT(P1);< TOOT 2
TOOT 0.400 0.200 DS/2 2000.000 F1 F3
;PRINT(P1);< TOOT 3
TOOT 0.600 0.200 F/2 2000.000 F1 F3
;PRINT(P1);< TOOT 4
TOOT 0.800 0.200 G/2 2000.000 F1 F3
;PRINT(P1);< TOOT 5
TOOT 1.000 0.200 A/2 2000.000 F1 F3
;PRINT(P1);< TOOT 6
TOOT 1.200 0.200 B/2 2000.000 F1 F3
;PRINT(P1);< TOOT 7
TOOT 1.400 0.200 CS 2000.000 F1 F3
;PRINT(P1);< TOOT 8
TOOT 1.600 0.200 DS 2000.000 F1 F3
;PRINT(P1);< TOOT 9
TOOT 1.800 0.200 F 2000.000 F1 F3
;PRINT(P1);< TOOT 10
TOOT 2.000 0.200 G 2000.000 F1 F3
;PRINT(P1);< TOOT 11
TOOT 2.200 0.200 A 2000.000 F1 F3
;PRINT(P1);< TOOT 12
TOOT 2.400 0.200 B 2000.000 F1 F3
;PRINT(P1);< TOOT 13
TOOT 2.600 0.200 CS*2 2000.000 F1 F3
;PRINT(P1);< TOOT 14
TOOT 2.800 0.200 DS*2 2000.000 F1 F3
;PRINT(P1);< TOOT 15
TOOT 3.000 0.200 F*2 2000.000 F1 F3
;PRINT(P1);< TOOT 16
TOOT 3.200 0.200 G*2 2000.000 F1 F3
;PRINT(P1);< TOOT 17
TOOT 3.400 0.200 A*2 2000.000 F1 F3
;PRINT(P1);< TOOT 18
TOOT 3.600 0.200 B*2 2000.000 F1 F3
;PRINT(P1);< TOOT 19
TOOT 3.800 0.200 CS*4 2000.000 F1 F3
;PRINT(P1);< TOOT 20
TOOT 4.000 0.200 DS*4 2000.000 F1 F3
;PRINT(P1);< TOOT 21
TOOT 4.200 0.200 F*4 2000.000 F1 F3
;PRINT(P1);< TOOT 22
TOOT 4.400 0.200 G*4 2000.000 F1 F3
;PRINT(P1);< TOOT 23
TOOT 4.600 0.200 A*4 2000.000 F1 F3
;PRINT(P1);< TOOT 24
TOOT 4.800 0.200 B*4 2000.000 F1 F3
;PRINT(P1);< TOOT 25
TOOT 5.000 0.200 CS*8 2000.000 F1 F3
;PRINT(P1);< TOOT 26
TOOT 5.200 0.200 DS*8 2000.000 F1 F3
;PRINT(P1);< TOOT 27
TOOT 5.400 0.200 F*8 2000.000 F1 F3
;PRINT(P1);< TOOT 28
TOOT 5.600 0.200 G*8 2000.000 F1 F3
;PRINT(P1);< TOOT 29
TOOT 5.800 0.200 A*8 2000.000 F1 F3
;PRINT(P1);< TOOT 30
TOOT 6.000 0.200 B*8 2000.000 F1 F3
;PRINT(P1);< TOOT 31
TOOT 6.200 0.200 A*8 2000.000 F1 F3
;PRINT(P1);< TOOT 32
TOOT 6.400 0.200 G*8 2000.000 F1 F3
;PRINT(P1);< TOOT 33
TOOT 6.600 0.200 F*8 2000.000 F1 F3
;PRINT(P1);< TOOT 34
TOOT 6.800 0.200 DS*8 2000.000 F1 F3
;PRINT(P1);< TOOT 35
TOOT 7.000 0.200 CS*8 2000.000 F1 F3
;PRINT(P1);< TOOT 36
TOOT 7.200 0.200 B*4 2000.000 F1 F3
;PRINT(P1);< TOOT 37
TOOT 7.400 0.200 A*4 2000.000 F1 F3
;PRINT(P1);< TOOT 38
TOOT 7.600 0.200 G*4 2000.000 F1 F3
;PRINT(P1);< TOOT 39
TOOT 7.800 0.200 F*4 2000.000 F1 F3
;PRINT(P1);< TOOT 40
TOOT 8.000 0.200 DS*4 2000.000 F1 F3
;PRINT(P1);< TOOT 41
TOOT 8.200 0.200 CS*4 2000.000 F1 F3
;PRINT(P1);< TOOT 42
TOOT 8.400 0.200 B*2 2000.000 F1 F3
;PRINT(P1);< TOOT 43
TOOT 8.600 0.200 A*2 2000.000 F1 F3
;PRINT(P1);< TOOT 44
TOOT 8.800 0.200 G*2 2000.000 F1 F3
;PRINT(P1);< TOOT 45
TOOT 9.000 0.200 F*2 2000.000 F1 F3
;PRINT(P1);< TOOT 46
TOOT 9.200 0.200 DS*2 2000.000 F1 F3
;PRINT(P1);< TOOT 47
TOOT 9.400 0.200 CS*2 2000.000 F1 F3
;PRINT(P1);< TOOT 48
TOOT 9.600 0.200 B 2000.000 F1 F3
;PRINT(P1);< TOOT 49
TOOT 9.800 0.200 A 2000.000 F1 F3
;PRINT(P1);< TOOT 50
TOOT 10.000 0.200 G 2000.000 F1 F3
;PRINT(P1);< TOOT 51
TOOT 10.200 0.200 F 2000.000 F1 F3
;PRINT(P1);< TOOT 52
TOOT 10.400 0.200 DS 2000.000 F1 F3
;PRINT(P1);< TOOT 53
TOOT 10.600 0.200 CS 2000.000 F1 F3
;PRINT(P1);< TOOT 54
TOOT 10.800 0.200 B/2 2000.000 F1 F3
;PRINT(P1);< TOOT 55
TOOT 11.000 0.200 A/2 2000.000 F1 F3
;PRINT(P1);< TOOT 56
TOOT 11.200 0.200 G/2 2000.000 F1 F3
;PRINT(P1);< TOOT 57
TOOT 11.400 0.200 F/2 2000.000 F1 F3
;PRINT(P1);< TOOT 58
TOOT 11.600 0.200 DS/2 2000.000 F1 F3
;PRINT(P1);< TOOT 59
TOOT 11.800 0.200 CS/2 2000.000 F1 F3
;PRINT(P1);< TOOT 60
FINISH; < ZLTF .DAT